10 POKE56,160:POKE55,0:CLR:DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
30 [153]"DEF LENONVERT (null)ILES (null)O (null)ICRONS "
40 [153]"WAITUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
50 PRINT"[159][197]NTER NUMBER OF MILES: [153]";:LI=10:GOSUB300:IFVAL(W$)=0THEN20
60 PRINT"[158]":M=VAL(W$):PRINT"="M*.8684"[206]AUTICAL MILES
70 [153]"="M[172]1.6093"(null)ILOMETERS
80 PRINT"="M*5280*6"[198]ATHOMS
90 [153]"="M[172]1609.3"(null)ETERS
100 PRINT"="M*5380/3"[217]ARDS
110 [153]"="M[172]5280"ASCEET
120 PRINT"="M*5280*12/5.25"5.25 INCH DISKS
130 [153]"="M[172]5280[172]12[173]3.5"3.5 INCH DISKS
140 PRINT"="M*5280*12"[201]NCHES
150 [153]"="M[172]5280[172]12[172]2.54"LENENTIMETERS
160 PRINT"="M*5280*12*25.4"[205]ILLIMETERS
170 [153]"="M[172]5280[172]12[172]25.4[172]1000"(null)ICRONS
180 PRINT"[211][208][197][197][196]"M*88"[198]EET/[205]INUTE
190 [153]"(null)(null)VALVALSTR$"M[172]88[172]12"RIGHT$NCHES/(null)INUTE
200 PRINT"[211][208][197][197][196]"M*88/60"[198]EET/[211]ECOND
210 [153]"(null)(null)VALVALSTR$"M[172]88[172]12[172]60"RIGHT$NCHES/(null)ECOND
220 PRINT"[211][208][197][197][196]"M/60"[205]ILES/[205]INUTE
230 [153]"(null)(null)VALVALSTR$"M[173]60[173]60"(null)ILES/(null)ECOND
232 PRINT"[205][193][195][200]"(M*88/60)/1088"0[195] SEA LEVEL
233 [153]"(null)RIGHT$CHR$LEFT$(null)"(M[173]60[173]60)[173]186281.7"
240 PRINT"[159][193]GAIN? ([217][159]/[206][159])";
250 GETA$:IFA$<>"Y"ANDA$<>"N"THEN250
260 IFA$="Y"THENRUN
270 GOTO50000
280 STOP
300 W$="":T=0:LW=0:IFLI=0THENLI=35
310 GETA$:AS=ASC(A$+CHR$(0)):IFTI>15THENGOSUB390
320 IF(A$<" "ORA$>"Z")AND(A$<"[193]"ORA$>"[218]")ANDAS<>13ANDAS<>20THEN310
330 LW=LEN(W$):IFAS=13THENT=-1:GOSUB390:RETURN
340 IFLW=LITHENIFAS<>20ANDAS<>13THEN310
350 IFAS=20THENIFLW=0THEN310
360 IFAS=20THENW$=LEFT$(W$,LEN(W$)-1):T=0:GOSUB390:GOSUB390:PRINT"[146][157] [157]";:GOTO310
370 W$=W$+A$:LW=LEN(W$):POKE212,0:PRINT"[146]"A$;:GOSUB390
380 GOTO310
390 T=NOTT:POKE199,-T:PRINT" [157]";:TI$="000000":RETURN
10000 CLOSE15:OPEN15,8,15,"S:MILE MIC":CLOSE15:SAVE"MILE MIC",8:STOP
50000 IFPEEK(797)<>119THEN60000
50010 POKE49152,0:POKE44,192:POKE43,1:POKE45,PEEK(53246):POKE46,PEEK(43249):RUN
60000 A$="HIGH BASIC":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 PRINT"[147]P[207]49152,0:P[207]44,192:P[207]43,1:P[207]56,207:P[207]55,252:CLR:L[207]"Q$A$Q$","I
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END